EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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LLLLLLLLLL 
LLLLLLLLLL 


LLLLLLLLLL 
LLLLLLLLLL 


| ened 
—— be 


(OH tt bane bs Bs Ot bs Bs at Bs as Be 


bee a 8 Oe an ne ae se ne et 
Ceaenmel 


tt 


Rat elo 
| aloe 
be ee 
bas 


bo Do 
leiomel 


Oe Dt fet be Dene One Bs fd Gee be Gs Dn ne By 
be 


ee fe Gs bane be be bs baw Bs bt ne bs 
mt 


taas O 
bat 
Bae ea 
oe bee 


UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 

UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UUUUUUUUUU 
UUUUUUUUUU 


— | 


AOAAAAOOA 
AMAOOAAOAO 


{ IBSRovTUuC 
able of contents 


4% 
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DECLARATIONS 
LIBSMOVTUC = translate and move until escape found 


Page 


0 


C 12 
- Move translated until escape character 16-SEP-1984 AX/VMS Ma v04-00 P 
’ ae ae 1 90:48 :33 CHBRTL. SAeICIOMOVTUC.MAR: 1 oe 


E breggy ruc - Move translated until escape charester 
T /1-01 3 File: LIBMOVTUC.MAR Edit: RKR1012 


RA RRRARAAAAASASLAAALALA SALAS ALES A SAREE SEER EEE RRR ESSER RSE E ERE REESE SSS SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
Rie RIGNES RECERVES: CORPORATION, MAYNARD, MASSACHUSETTS. 


COOOCCooOooOooooo 


SOooocooooooooooooooooooooooooooooooooooCoOoOoOoOOO OOOO OOOOOOoOO 
NOrewW 


& 
* 
te 
« 
* 
© 
A % 
N OTICE. SOF TW "OTHER ‘ 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
i 

® 

« 

* 

® 

& 

te 

® 

® 

% 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooRPORAT in NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS wee 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


LAR RARRARAASALAAASAASALESA SELES AAR ERLE SESE EASA RR RRR SRE S SASSER RSE RAR RRR SS S S 


+ 
FACILITY: General Utility Library 
ABSTRACT: 


A translate and move of the source string to the destination 
is performed until an escape character is found. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
MODIFIED BY: 
DGP, ima VERSION 00 


DGP 1s -Jan-78 - Point to escape character properly 
DGP 18-Jan-78 - add optional fifth argument (ECO) 
pedane,.vers ion number and copyright iis - JBS 16-NOV-78 
Add PSECT directive. JBS 21-DEC- 
Handle dynamic d destination strings. 7s. 20-MAR-1979 
Change OTS$S and LIB$S to STR$. JBS AY-1979 
Put all externals. ie > EXTRN Hietiet. mies 19=JUN-1979 
sgture nee .s source string exhausted with no escape. 
9 SBL 7-Sept-1979 
1-007 - ies pam bas, addressing when calling eaterne) as Stsees to 
make this routine position independent. SEP-1979 
1-008 - Enhance to recognize additional classes a” Ble descriptors 


SOCSSSSSOOSOOSOOCSOSOOSOS SOOO SSSOSOSOSOSOOCSOOSOOSOSOSOOSOOOOOOOOOOOOOOCOO 


SOSCOSOSOSOSOSOSOSOSOOOSOOOSOOOOOOOOOSOOSOOSOSOSOSOOCOOOOOOOOOOoOO 
NOUS AN OS OOO NAW EWN O OD NOAUE WN SO ODNAUE WN O COONAN EW OOWONOU ES Wn 


SOOSSCOOCSOSOSOSOSOSOSOOSOSOSOOSOSOOSOOSOSOSOOSOOSOSOSOSOSOOSOOOOOOOOOCOOOOOOOOOOOOOO 


DATS BB EEE EWN rononononononononony 2 2 


oo 


( 


1 
1 
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LIBSMOVTUC - Move translated until escape character 16-SEP-1984 214: AX/VMS Macro V04-00 P 
1-012 : rer Er SE-1986 11:09:23 LLIORIL.GRETCIBMOVIUC.MAR:1 “22° (4p, 


king LI LBSAMAL YZ _SDESC_R3 to extract length and address 
gate byte rom descriptor 

SGET1_DD instead of TRSGET1 DX to allocate space 
eee? 


vw 
~ooco 


ef? sester and A, minates the need for establishing 
as a han 
rror where as sett would be returned if the escape 


v ume" =+COoOMc 


1-009 = Put back 1-006) fix, accidentally removed by gg, B Analyze 
ource descriptor before process st dest. SBL 23-Sept-1981 
1-010 - Add s ener jptmggee code to process 5 A descriptors that 
read like fixed string descri efor 
Fix catting sequence to LIBSSGET1 °DD: Needs length by 
reference. 
ae a 1981. 
1-011 = Redire sb's from LIBSANALYZE_SDESC_R3 to 
LTSSANALY E_SDESC_R2. Reorganize register u usage to free 
which can be removed from the entry mask. 
RKR 18-NOV-1981 
1-012 - Fix case where we have dynamic or yeryshe destination, 
escape detected, and no fill supplied. Need to adjust Length 
of destination to be actual no. of chars. translated. 
RKR aati 982 


SOOoOoOCOCCOCOOCOOOOOOOOOOSOOOoO 
SOOSCOCOCSOSCOOSCOOOCSCOOOOCOOOoOSoOoOSO 


SOSOSCSCOCOOCOOOCOOCOSOOOOOOoOoOOo 
COOQoooQoooooooooooooooooo 
ONIN NNN NNO A AAAOAAAAO 
SOOCONAOUES WN OOODNOAUS wr 


eT at Se eee ek ER a ee ‘ - 
| E 12 
SMOVTUC lated until escape character yp ei es me AX/VMS -00 


1 - Move trans v04 P 
eres DECLARATIONS 6-SEP=19 09:23 YMNante.ceicremoveuc.mars1 29° (3), 
® LSBTTL DECLARATIONS | 
, 3 INCLUDE FILES: | 
: ; SDSCDEF : Descriptor symbols 
8 3 MACROS: 
30 ; NONE 
$3 ; EQUATED SYMBOLS: 
6 3 ; NONE 
0 95 ; 
000 38 3; OWN STORAGE: 
000 97 ; 
B85 98 ; NONE 
000 99 ; 
000 100 ; PSECT DECLARATIONS: 
00000000 102 
itd 198 3 
0000 104 ; EXTERNALS 
0000 105; 
0000 106 DSABL GBL 3 Only explicit externals 
0000 107 EXTRN LIBSSCOPY_R_DX6 ; srr ng copy by refrence 
0000 108 EXTRN LIBSSGET1 ; Allocate a string 
0000 109 EXTRN LIBSANALYZE_SDESC_R2 ; Extract length and address of 
0000 110 ; Ist data byte 


-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
| 
| 
| 


j IRegovTuc 
-012 


: 
0 
0 
0 
0 
0 
000 
000 
000 
000 
000 
000 
000 
000 
0000 
0000 
00000004 0000 
00000008 0000 
0000000C 0000 
00000014 0000 
0000 
0000 
0000 
0000 
0000 
0000 
i448 
00000010 000 
0000 
0000 
444 
38 
0909 
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nslated until escape character 16-SE 
= translate and move until e 6-SE 


a .SBTTL LIBSMOVTUC - 
: FUNCTIONAL DESCRIPTION: 


the translation table. 
destination string. 


If an escape character 
character 


If the destinat 


CALLING SEQUENCE: 
esc_index.wl.v = 


INPUT PARAMETERS: 
sour 
ets 20. 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
DEST = 16 

IMPLICIT OUTPUTS: 
NONE 

FUNCTION VALUE: 
esc_index.wl.v 

SIDE EFFECTS: 


a a a kh dd da 
DPD XA DAs & Se BB ENIAC POPPPONPINNINY SS OS 
DNAUE WN 9 OONAUES WN OOO NAME WN $$ O OD NOAUE WN 0 OO NOU EWR) SO OONOULS UM 


71986 99:09:28 EMTQRTL. SRESLIBMOVTUC MAR: 1 


ranslate and move until escape found 


Each character of the source string is used as an index into 


f the transiation character is the 


escape character then the move halts. 
Otherwise the translated character is placed into the 


Translation continues until either the source or destination 
strings are exhausted, or an escape character 


s found. 


is found, the relative index of the 


n the source string which translated into the 

escape character is returned. 

If either eyring is of zero length, then a zero is returned. 
on otros canno 

can't be handled by LIBSANA 


Otherwise; a zero is returned. 


be allocated, or a descriptor 
LYZE_SDESC, a -1 is returned. 


LIBSMOVTUC (src.rt.dx, 


esc.rt.dx, 
table.rt.dx, 


dst.wt.dx 
C,fill.rt.dxJ) 


; Adr of source string desc. 

; Adr of escape erring desc 

; Adr of translation table desc 
3; Adr of fill character desc 


; Adr of destination string desc 


May allocate storage for the destination. 


-ENTRY LIBSMOVTUC , “M<R2, R3, R4, RS, RO, R7, RB, RI 


; Entry point 


z=- 


IBSMOVTUC - Move tran sla ted until escape enaene ter 1 mi AX/VMS Macro V04- 
-012 LIBSMOVTUC = translate and hove until @ =}38¢ 90:48 :33 LIBRTL.SRC REIL itpoveuc. MAR; 1 ee ay. 
169 ; 
170 Get the Length and address of the source string. 
50 4 A 17 MOVL SOURCE (AP Address of SOURCE descriptor 
02 8 nb 1 6 178 CHP C$B_ CASS (ROD, #DSCSK -tLass_p : read Like fixed ° 
56 04 8C 7D 175 mova @SQURCE CAP), R6 : Tength->6, 3 address->R7 
OF 11 : 178 eRe 15$ 3 join common flow 
00000000 ' GF 1 1 178 5$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: length=->R1, addr->R2 
88 3 b18 178 BiBS RO, 108 “= | Ble 1h Os efrar é 
010F 1 pie } ? BRw ERROR 3; Error return 
56 651 7D at 1 ¢ 10$: mova R1, R6 ; save length and addr of SOURCE 
1 ; length ->R6, addr ->R7 
1 1, 
021 196 ” If the destination string is dynamic, allocate enough space for it 
8 : a ; that it will hold the whole translated source string. 
50 10 AC DO 0091 189 158:  MovL DEST(AP), RO ; Point to dest descr. 
03 AO O¢ 91 025 190 CMPB #OSCSK _CLASS_ D, DSCSB_CLASS(RO) ; Dynamic? 
1 12 0029 191 BNEQ 20$ 3; No, use it as is. 
56 DD 0028 196 PUSHL R6 : Length 
ie oP 6 4 132 PUSHAW ACSP) ; Stiren f length 
; address of le 
00000000"GF OF FB 0082 195 CALLS #2, G*LIBSSGET1_DD " 
06 =«C 0 196 ADDL2 #4, SP : realign stack 
03 50 8 003C 197 BLBS RO, 208 ; continue if successful 
00EB 1 QOO3F 198 BRW ERROR ; else prepare to quit 
Be 
004 01 " Extract the various lengths and addresses we will need and leave 
Boe 8 : in registers for the actual MOVTUC instruction to follow. 
50 OC AC DO b04 04 50S:  MOVL _—TABLECAP), RO Address of TABLE descriptor 
02 03 ry #4 8 : b2 eerhu bS¢$B_ CLASS(RO), #DSCSK -tLAss _D ; read Like fixed ? 
58 04 A0 00 6 07 MOVL DSCSA_POINTER(RO) R8 : address of TABLE 
OF 11 8 $8 BRB 5$ 3 join common flow 
00000000'GF 16 10 258: JSB gh TERNAL VZE_SOESC RE ; Extract: Length=>R1, addr->R2 
3 50 8 11 BLBS RO, 30$ 3; Quit if error 
OocrF 1 8 1g BRW ERROR > 
1% 30$: MOVL R2, R8 ; save addr of TABLE 
18 35$: CMPB (AP), #<FILL/4> ; Check for presence of fill 
1 BLSSU 45$ ; if not there 
\8 MOVL FILL(AP), RO Addr ress of FILL descriptor 
19 CHP : C$B_CLASS(RO), #DSCSK_ ELAS _D ; read like fill ? 
1 MOVZBL @DSCSA_POINTER(RO), R9 : value of fill character 
§ BRB 45$ 3 Join common flow 
4 408: JSB EL IPSRMALYZE SBESC Re : Extract: Length=>R1, addr->R2 
5 BLBS RO, 42% 


IBSMOVTUC - Move translated until escape tess ter 1 =35h 1984 AX/VMS Macro V04-00 Page 
ete LIBSMOVTUC = translate and hove untile -}88¢ 90:48 :33 LIBRTL.SR REIL CLBMOVTUC MAR: 1 . (%) 
00A 1 7F ERROR : Quit if error 
59 6 A 5 42$: ROVZBL (R2), RY : value of fill character 
33 68 ag 0 § 45$: MOVL ESC(AP), RO Address of ESC descriptor 
0 0 A 4 . ? hse I BRET AKLASS CRD) . #OSCSK_ ELASS_D 3; read Like fixed ? 
53 04 88 9A OO0BF § MOVZBL BPECSA_POINTERIROD , R3 ; value of ESC character 
OF 11 035 i RB 55$ 3 join common flow 
00000000'GF 1 9 5 508 JSB G“*LIBSANALYZE_SDESC_R2 ; Extract: Length=->R1, addr->R2 
88 8 8 098 356 Bibs ROL 83s - . 
008C¢ 1 44 , BRW ERROR ; Quit if error 
53 62 9A OOA1 9 288 MOVZBL (R2), R3 ; value of ESC character 
50 10 AC DO O00A4 240 55$ MOVL  DESTCAP), RO Address of DEST descriptor 
02 03 AO 91 O0A8B 241 CMPB =-d DSC$B_CLASS(RO), #DSCSK_ CLASS _D ; read like fixed ? 
06 1A OOAC tg BGTRU 60$ F 
51 108C 7D i 4 MOVa @DEST(AP), R1 ; Length=>R1, address->R2 
09 = =11 boos te BRB TEST_V 3 join common flow 
00000000'GF 16 00B4 46 60$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: length=->R1, addr->R2 
70 50 =6—€9 ) «6(Q0BA 47 BLBC RO, ERROR ; Quit if error 
OBD 48 
00BD 49 i+ 
00BD 50 : Class_VS destination is handled as a special case. We must try to 
00BD 51 ; force its current length (CURLEN) field to be the same size as the 
00BD 26 3 ; source length. However, this new length must be the MIN( source_len, 
00BD 5 : and MAXSTRLEN). If source_len is greater than MAXSTRLEN, then output 
0BD 54 ; ill be trunctated to MAXSTRLEN chars. 
0OBD 55 
0OBD 256 fEST_vs: 
50 10 AC 00 O0BD 57 MOVL DEST( ; Address of DEST descriptor 
0B O03 A0 91 Bore 58 CMPB b5cs 8. EC aseeRO), #DSCSK aCLASS_ vs ; Class _VS ? 
171. 12 00C5 59 BNEQ 5$ 3 no, no special action needed 
60 56 B1 00C7 60 CMPW R6, DSCSW_MAXSTRLEN(RO) ; SOURCE Len : MAXSTRLEN 
05 15 OOCA 61 BLEG : if SOURCE Len leq 
51 60 3¢ =600CcC 6¢ MOVZWL BEC SU _AAKSTALEMROD . R1 ; use MAXSTRLEN for CURLEN 
03 =171 Bact o7 BRB 0$ 
51 56 3C S0p1 65 65$: MOVZWL R6, R1 ; use SOURCE Len for CURLEN 
04 B0 51 B0 ite 66 oes: MOVW R1, @DSCSA_POINTER(RO) ; rewrite CURLEN field 
0008 eB 
BB 5 ; For those of you who have lost track, 
4 4 : register contents at this point: 
0D8 § : RO = pédress of DEST _Sescr iptor 
sit 74 ; R1 = Length of DEST string 
0D 75 ; R2 = address of Ist byte of DEST string 
OD A 3 R35 = veins of ESC character 
0D 7 3 R4 = garb bage 
D 8 3 R5 = yore age 
D 79 ; R6 = tengt of SOURCE string 
D O 3 R7 = address of ist byte of SOURCE string 
D 12 RB = rast of ist byte LE 
0D 2: R9= value of FILL cnareater (if supplied) 


I 12 
anslated until escape character 16-SEP-1984 00:14: AX/VMS Macro V04-00 
C = translate and hove until e mii Sets 7 90:49:38 YTBRTL. SREILIBMOVTUC MAR: 1 


} 


veer raed 


3 5+ 
4 ; prototype movtc 
: movtuc srclen, srcaddr, escchar, tableaddr, dstlen, dstaddr 


5 MOVTUC R6, (R7), R3, (RB), RI, (R2) 
3 5 State of regs after a MOVTUC instr. 

RO = number of bytes remaining in 
0 source string (including the 
byte which caused the escape. 
Is zero only if the entire source 
string was translated and moved 
without escape. 
address of the ayee which 
resulted in destination string 


R1 


exhaustion or escape. If no 
exhaustion or escape, then 
address of one byte beyond the 
source string. 


address of the table 

number of bytes remaining in the 
destinatin string. 

address of the byte in the 
destination string which would 
have received the translated byte 
that caused the escape or would 
have received a translated byte 
if the source string were not 
exhausted. If not exhaustion 

or escape, then address of one 
byte beyond the destination 


RS 
R5 


BvC 80$ 
or destination string exhausted. 

RO is not zero if dest. string is 
shorter than source string! 

RO = Length of source - no. of bytes 
remaining in source including escape 
character 

1 = origin 


50 56 50 A3 SUBW3 = =RO, R6, RO 


Pete Ge Ge Se Se Ge Se Be Bs He Ge Ge Se Ge Se Be Be Se Se Ge Be Se Ge Be Se Ge Ge Fe Ge Se Se Se Se 


INCL RO 
BRB 85$ 


80$: CLRL RO 
85$: CMPB (ap). #<FILL/4> 


; We return zero if the destination 
3; string was full before an escape found 
; Check for presence of fill character 
; branch if no fill 
save index on stack 
(R5); fill destination string 
= return value 


05 


p 


wOou9ce 
mMoOooonn 


7E RO, -(SP) : 
65 56 59 6€ MOVCS #0, O(SP), RO, RA, 
50 (SP)+, R ; 


90$: No fill present, RO all set to return 


: Was escape encountered ? 


ou 
-o 


yes 
no, we're all set 


», R2 ; addr of destination descriptor 
CLASS_D, BSC$B_CLASS(R2) ; was it dynamic ? 


ANNAN A AINA AI IPIDIPIPIPINPINPININID 2 2 OS SS S| MQOOCTOOOOCOCSCOCOWOVOOOOOONO 
DOONAN E WIN 9 ONAN EWN  O OO NAMUE WIN $$ CO OO NOAUE WN 0 OO NOUS Wh — 


| HOOCCOCOCCOOOCOCOCOCOOOoOoOooo 
DOOOCO MANN NNW MMMMMMMMMMmMmMmMen 
Ui = OMOOODWOMDD OONuuIU 


SOOoOoooooooooooooooooooosooSo 


oO 
= 
wr 
=z 
om 
<_-- 
os 
zo 


36 10 AC AP 
03 a2 02 K 


| 

| 

| 

| 

string. | 
branch if no escape before source 
| 

| 
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IBSMOVTUC - Move translated until escape character 16-SEP-1984 00:14: AX/VMS Macro V04-00 Page 
12 LIBSMOVTUC = translate and nove until e mie 1 9:39:38 LIBRTL.SRCJLIBMOVTUC.MAR;1 ° dy 
C 13 0109 40 BEQL 94$ s xe§ 
03 A2 91 0108 4] ChPB SsCORCLASS. VS DSCSB_CLASS(R2) ; was it varying ? 
12 ! ‘ tg BNEQ 9 ; must have static length, exit 
111 44 ; very ine destination -- must adjust length to only number of bytes 
111 45 ; actually translated. 
111 +g ; For vorrunt string we can do this by Cayriting the CURLEN field. 
04 B82 50 01 A3 0111 4 SUBW #1, RO, @DSCSA_POINTER(R2) ; rewrite CURLEN field 
04 118 rt 92$: RET 
117 50 ; Dynamic destination -- must adjust length to only number of bytes 
Bite : ge tuetiy ee 
57 50 oO 0117 $4$: MOVL RO, R? ; save index to return in spare reg 
50 D7 OIA 5 DECL R ; Number of bytes in actual result 
1 046 A2 00 OQ11C 54 MCVL DSC$A_POINTER(R2S, R1 ; addr of current destination 
00000000'GF 16 0120 55 JSB G*LIBSSCOPY_R_DX6 ; recopy to self with correct length 
0450 €9 0126 2$ BLBC RO, ERROR ; couldn't allocate temp 
50 57 00 4 9 5 MOVL R7, RO 3; restore index 
04 012C 58 RET 3 now return 
8 
012D 61 ; Come here if the allocation of the destination string fails or a 
012D 6¢ ; descriptor is bad. Return a -1, since the string position cannot 
6155 27 ; be -1. 
50 01 cE 0130 $0 ERROR: MNEGL #1, RO 3; Return -1 
04 0130 66 RET 
0131 4 
0131 68 - END 


| 
3; to the caller. 
| 
| 
| 
| 


» ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 
SABSS 00000000 ¢ Q.) 01 ¢ 1.) NOPIC USR CON ABS LCL 
-LIBSCODE 00000131 ¢ 305.) 02¢ 2 PIC USR CON REL LCL 


fucewseeeesoeeceseoescesss 


SHR EXE 


Phase Page faults CPU Time Elapsed Time 


Initialization :00:00. :00:01. 
itializati 3 00:00:00.05 00:00:01.3 
zounens processing 132 00:00:00.30 00:00:01. 

s 1 138 00:00:01.39 00:00:07.04 
Syabol table sort 0 00:00: 8-13 es fo 8 
Pass 2 76 00: :2 . Bp 88:8 Mi, 
Symbol table output 4 0:00: Oe 0:00: B08 
Psect synopsis output B28: .01 00:00:00.1 
Cross-reference output 0:00: 944 00:00: 9.00 
Assembler run totals 38 00:00:02.4 00:00:13.35 


The yortineg : Limit was 1200 pages. 

45 bytes (25 pages) of virtual memory were used to but ier fhe apruersers sgde 
icoee were 10 pages of symbol table space ol ieces d to hold 142 non-local and 23 Local symbols. 
- source Lines were read in Pass 1, produci ih object records in Pass 2. 

pages of virtual memory were used to define 7 macros. 


eeecereeeen eee crm eeeeooceoe= +} 


Macro Library name 


_$255$DUA28: (SYSLIBISTARLET.MLB; 2 
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LIBSMOVTUC - Move translated until escape character i at aad 00: NG i38 AX/VMS Macro v04-00 
Symbol table 6-SEP=1984 11:09: LIBRTL.SRCJLIBMOVTUC.MAR;1 
DEST = 10 
DSCSA_POINTER = 
DSC$B_CLASS = 
DSCSK_CLASS_ = 
DSCS$K-CLASS_VS = 
OSCSwW “WAXSTRUEN = 
ERROR™ 12D R 02 
ESC = 8 8 
rit 4 
LIB ane My _SDESC_R2 eereeeee §6X 
L186 00000000 RG 
LIBSeCOPy _R_Dx6 eereneee §6X 
LIBSSGET1—D6 eereneee = §=6X 
SOURCE = 80000 04 
TABLE A 00000C 
TEST_VS 000008D R 02 

tamer n rman mooaas + 


oS NOEXE NORD a NOVEC BYTE 
NOSHR EXE RD T NOVEC BYTE 
RD NOURT NOVEC LONG 


=e ~«d 


Ll VTUC - Move translated until escape wubrstees 19-8 palo 90: 16:33 ya kig Macro V Page 


VAX=1 Recre Run Statistics P= RTL REIL LOMOVIUC MAR: 1 
190 GETS were required to define 4 macros. 

There were ro errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBMOVTUC/08J=0BJ$:LIBMOVTUC MSRC$:LIBMOVTUC/UPDATE=(ENH$:LIBMOVTUC) 


( 


g; 


—r 


AH-BT13A-SE | DIGI 
VAX/VMS_V4.0 CONF 
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